home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / utils2 / sys117.arj / SYSTEM.BTM next >
Text File  |  1993-10-23  |  14KB  |  512 lines
  1. @echo off
  2. *break off
  3. *cls
  4. *del #@$().zb;#@$().ze;system.idx /z/q >&nul
  5. *set > #@$().ze
  6. *set esize=%_env
  7. *set asize=%_alias
  8. *alias > #@$().zb
  9. *unalias *
  10. set bg=%_bg
  11. set fg=%_fg
  12. set LAN=
  13. text >system.idx
  14.  1) System Information
  15.  2) Memory Information
  16.  3) Disks  Information
  17.  4) AUTOEXEC.BAT View
  18.  5) CONFIG.SYS   View
  19.  6) SYSTEM.INI   View
  20.  7) WIN.INI      View
  21.  8) DBLSPACE.INI View
  22.  9) MEMMAKER.STS View
  23. 10) View a file
  24. 11) Aliases
  25. 12) Environment
  26. 13) About this program
  27. 14) Save Information to File
  28. 15) Quit
  29. endtext
  30.  
  31. :main
  32. cls %fg on %bg
  33. drawbox 1 6 3 52 4 bright yellow on magenta fill magenta shadow
  34. scrput 2 8 bright green on magenta System Information 1.17 by Schwartz Gabriel
  35. set tempvar=%@select[system.idx,8,6,25,38]
  36. set tempvar=%@substr[%tempvar,0,3]
  37. iff "%tempvar"==" 1)" then goto system
  38. elseiff "%tempvar"==" 2)" then goto memory
  39. elseiff "%tempvar"==" 3)" then goto disk
  40. elseiff "%tempvar"==" 4)" then goto autoexec
  41. elseiff "%tempvar"==" 5)" then goto config
  42. elseiff "%tempvar"==" 6)" then goto systemini
  43. elseiff "%tempvar"==" 7)" then goto winini
  44. elseiff "%tempvar"==" 8)" then goto dblspace
  45. elseiff "%tempvar"==" 9)" then goto memmaker
  46. elseiff "%tempvar"=="10)" then goto viewfile
  47. elseiff "%tempvar"=="11)" then goto aliases
  48. elseiff "%tempvar"=="12)" then goto envinroment
  49. elseiff "%tempvar"=="13)" then goto programinfo
  50. elseiff "%tempvar"=="14)" then goto saveinfo
  51. endiff           
  52. goto quit
  53.  
  54. :system
  55. DrawBox 1 2 22 74 1 bright magenta on %bg fill %bg shadow
  56. scrput 3 7 bright yellow on %bg System Status:
  57.  
  58. gosub showtime
  59. scrput 7 7 %fg on %bg Main Operating System: %_dos
  60. scrput 8 7 %fg on %bg DOS Version: %_dosver
  61. iff "%_4ver"=="" then scrput 9 7 %fg on %bg NDOS Version: %_nver
  62. else scrput 9 7 %fg on %bg 4DOS Version: %_4ver
  63. endiff
  64.  
  65. if %_dv == 1   scrput 10 7 %fg on %bg Multitasking: DESQview
  66. if %_win == 1  scrput 10 7 %fg on %bg Multitasking: WINDOWS 2.x
  67. if %_win == 2  scrput 10 7 %fg on %bg Multitasking: WINDOWS 3 Enhanced Mode
  68. if %_win == 3  scrput 10 7 %fg on %bg Multitasking: WINDOWS 3 Real Mode
  69. if %_win == 20 scrput 10 7 %fg on %bg Multitasking: OS/2 2.0 DOS Box
  70.  
  71. iff %_dv == 1 .OR. %_win == 1 .OR. %_win == 2 .OR. %_win == 3 .OR. %_win == 20 then set tempvar=11
  72. else set tempvar=10
  73. endiff
  74. scrput %@eval[%tempvar] 7 %fg on %bg CPU class:
  75. iff %_cpu == 200 then scrput %@eval[%tempvar] 18 %fg on %bg V20/V30
  76. else scrput %@eval[%tempvar] 18 %fg on %bg 80%_cpu
  77. endiff
  78.  
  79. scrput %@eval[%tempvar + 1] 7 %fg on %bg NPU class: 
  80. iff %_ndp ne 0 then scrput %@eval[%tempvar + 1] 18 %fg on %bg %_ndp Numeric Coprocessor detected
  81. else scrput %@eval[%tempvar + 1] 18 %fg on %bg Numeric Coprocessor not detected
  82. endiff
  83.  
  84. scrput %@eval[%tempvar + 2] 7 %fg on %bg Screen: %_COLUMNS*%_ROWS
  85. scrput %@eval[%tempvar + 3] 7 %fg on %bg Video Adapter: %@upper[%_video]
  86. scrput %@eval[%tempvar + 4] 7 %fg on %bg Monitor Type: %@upper[%_monitor]
  87. iff %_ANSI ==1 then scrput %@eval[%tempvar + 5] 7 %fg on %bg ANSI Driver: Installed
  88. else scrput %@eval[%tempvar + 5] 7 %fg on %bg ANSI Driver: Not installed
  89. endiff
  90. scrput %@eval[%tempvar + 6] 7 %fg on %bg Code Page: %_CODEPAGE
  91. iff %_MOUSE == 1 then scrput %@eval[%tempvar + 7] 7 %fg on %bg Mouse Driver: Installed
  92. else scrput %@eval[%tempvar + 7] 7 %fg on %bg Mouse Driver: Not installed
  93. endiff
  94. set tempvar=
  95. :presskey
  96. scrput 20 7 %fg on %bg Press any key to return to main menu... 
  97. screen 20 46
  98. inkey /w1 %%tempvar
  99. iff "%tempvar"=="" then gosub showtime^goto presskey
  100. endiff
  101. goto MAIN
  102.  
  103. :showtime
  104. scrput 5 7 %fg on %bg Current Date: %_dow %_date
  105. scrput 6 7 %fg on %bg Current Time: %_time
  106. return
  107.  
  108. :memory
  109. DrawBox 1 2 16 70 1 bright magenta on %bg fill %bg shadow
  110. scrput 4 7  bright yellow on %bg Memory information
  111. loadbtm off
  112. scrput 6 7  %fg on %bg DOS Memory free: %@DOSMEM[b] bytes %@DOSMEM[K] Kilobytes %@INT[%@EVAL[%@DOSMEM[b]/640/1024*100]]%% free)
  113. scrput 7 7  %fg on %bg Alias free: %asize bytes
  114. scrput 8 7  %fg on %bg Environment free: %esize bytes
  115. scrput 9 7  %fg on %bg Extended memory free: %@EXTENDED[b] bytes
  116. scrput 10 7 %fg on %bg XMS Memory free: %@XMS[b] bytes
  117. scrput 11 7 %fg on %bg EMS Memory free: %@EMS[b] bytes
  118. set tempvar=%@search[mem.exe]
  119. if "%tempvar" NE "" goto meminfo
  120. loadbtm on
  121. scrput 13 7 %fg on %bg Press any key to return to main menu... 
  122. screen 13 46
  123. set tempvar=
  124. inkey /w60 %%tempvar
  125. goto main
  126. :meminfo
  127. set tempvar=Y
  128. scrput 13 7 %fg on %bg Do you want to see memory usage? [Y/n]
  129. screen 13 45
  130. inkey %%tempvar
  131. if "%tempvar"=="Y" .OR. "%tempvar"=="@28" goto memmap
  132. goto memexit
  133. :memmap
  134. mem /c | list /s
  135. :memexit
  136. loadbtm on
  137. goto main
  138.  
  139. :disk
  140. DrawBox 1 2 19 75 1 bright magenta on %bg fill %bg shadow
  141. scrput 3 7 bright yellow on %bg Drives information:
  142. scrput 5 7 %fg on %bg BOOT Drive is: %_BOOT:
  143. iff %@REMOVABLE[a:] == 1 then scrput 6 7 %fg on %bg Drive A: Removable
  144. else scrput 6 7 %fg on %bg Drive A: Not Removable
  145. endiff
  146. iff %@REMOVABLE[b:] == 1 then scrput 7 7 %fg on %bg Drive B: Removable
  147. else scrput 6 7 %fg on %bg Drive B: Not Removable
  148. endiff
  149. scrput 8 7  %fg on %bg Current Drive is: %_DISK:
  150. scrput 9 7  %fg on %bg Disk Label is: %@LABEL[%_DISK:]
  151. scrput 10 7 %fg on %bg Current Directory is: %_CWD
  152. scrput 11 7 %fg on %bg Current Disk total: %@DISKTOTAL[%_DISK,b] bytes (%@DISKTOTAL[%_DISK,M] Megabytes)
  153. scrput 12 7 %fg on %bg Current Disk used: %@DISKUSED[%_DISK,b] bytes (%@DISKUSED[%_DISK,M] Megabytes - %@INT[%@EVAL[%@DISKUSED[%_DISK,b]/%@DISKTOTAL[%_DISK,b]*100]]%% used)
  154. scrput 13 7 %fg on %bg Current Disk free: %@DISKFREE[%_DISK,b] bytes (%@DISKFREE[%_DISK,M] Megabytes)
  155. scrput 14 7 %fg on %bg Last Drive is: %_LASTDISK:
  156. iff "%LAN"=="" then 
  157. for %drive in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) if %@remote[%drive:]==1 set LAN=%LAN% %drive:
  158. if "%LAN"=="" set LAN= None
  159. endiff
  160. scrput 15 7 %fg on %bg LAN Drives:%LAN
  161. scrput 17 7 %fg on %bg Press any key to return to main menu... 
  162. screen 17 46
  163. set tempvar=
  164. inkey /w60 %%tempvar
  165. goto main
  166.  
  167. :autoexec
  168. set tempvar=%@search[%_boot:\autoexec.bat]
  169. iff "%tempvar"=="" then set tempvar=AUTOEXEC.BAT^gosub nofile^goto main
  170. endiff
  171. list %tempvar
  172. goto main
  173.  
  174. :config
  175. set tempvar=%@search[%_boot:\config.sys]
  176. iff "%tempvar"=="" then set tempvar=CONFIG.SYS^gosub nofile^goto main
  177. endiff
  178. list %tempvar
  179. goto main
  180.  
  181. :systemini
  182. set tempvar=%@search[system.ini]
  183. iff "%tempvar"=="" then set tempvar=SYSTEM.INI^gosub nofile^goto main
  184. endiff
  185. list %tempvar
  186. goto main
  187.  
  188. :winini
  189. set tempvar=%@search[win.ini]
  190. iff "%tempvar"=="" then set tempvar=WIN.INI^gosub nofile^goto main
  191. endiff
  192. list %tempvar
  193. goto main
  194.  
  195. :dblspace
  196. set tempvar=%@search[dblspace.ini]
  197. iff "%tempvar"=="" then set tempvar=DBLSPACE.INI^gosub nofile^goto main
  198. endiff
  199. list %tempvar
  200. goto main
  201.  
  202. :memmaker
  203. set tempvar=%@search[memmaker.sts]
  204. iff "%tempvar"=="" then set tempvar=MEMMAKER.STS^gosub nofile^goto main
  205. endiff
  206. list %tempvar
  207. goto main
  208.  
  209. :viewfile
  210. drawbox 7 6 9 53 1 bright yellow on %bg fill %bg shadow
  211. scrput 8 8 %fg on %bg View file : 
  212. screen 8 20
  213. input %%tempvar
  214. if "%tempvar"=="" goto main
  215. if exist %tempvar goto showfile
  216. gosub nofile
  217. goto main
  218. :showfile
  219. list %tempvar
  220. goto main
  221.  
  222. :aliases
  223. list #@$().zb
  224. goto main
  225.  
  226. :nofile
  227. drawbox 7 6 13 53 1 bright yellow on red fill red shadow
  228. scrput 9 8 bright yellow on red File %tempvar not found
  229. scrput 11 8 bright yellow on red Press any key to return to Main Menu... 
  230. screen 11 47
  231. pause > nul
  232. return
  233.  
  234. :envinroment
  235. list #@$().ze
  236. goto main
  237.  
  238. :programinfo
  239. cls bri yellow on %bg
  240. text
  241. SYSTEM ver 1.17 gives the current information:
  242.  
  243. A. Status:
  244. . Current Date, Day of the week, time
  245. . Running under DOS or OS/2
  246. . DOS & 4DOS or NDOS version
  247. . MultiTasking - Windows, OS/2, DESQview
  248. . CPU & NPU class 
  249. . Screen Text Resolution, Video adapter, monitor, ANSI.SYS detecion
  250. . Mouse Driver detection, CodePage number
  251.  
  252. B. Memory
  253. . Free DOS Memroy
  254. . Free ALIAS, Free Environment
  255. . Free EXTENDED Memory, XMS & EMS
  256. . Memory usage (Only if MEM.EXE from DOS is available)
  257.  
  258. C. DISKS
  259. . BOOT Drive, Last drive
  260. . Drives A:, B:
  261. . Current Disk, Directory and Disk's LABEL
  262. . Total Disk space, Used space, Free space
  263. . LAN Drives
  264.  
  265. endtext
  266. color bright green on %bg
  267. pause Press any key to next page...
  268.  
  269. cls bright yellow on %bg
  270. text
  271. D. System files view
  272. . AUTOEXEC.BAT
  273. . CONFIG.SYS
  274. . SYSTEM.INI
  275. . WIN.INI
  276. . DBLSPACE.INI
  277. . MEMMAKER.STS
  278. . Aliases
  279. . View a file
  280. . Envinroment settings
  281.  
  282. All this information is presented in organized menus.
  283. All the information can be saved to a file! 
  284. just choose SAVE INFORMATION TO FILE on the main menu.
  285.  
  286. 4DOS is as Registered Trademark of Rex C. Conn and J.P. Software Incorporated.
  287. NDOS is as Registered Trademark of Symantec Corporation.
  288.  
  289. endtext
  290. color bright green on %bg
  291. pause 
  292. goto main
  293.  
  294. :saveinfo
  295. drawbox 7 6 9 53 1 bright yellow on %bg fill %bg shadow
  296. scrput 8 8 %fg on %bg Report to file : 
  297. screen 8 25
  298. input %%tempvar
  299. if "%tempvar"=="" goto main
  300. iff exist %tempvar then
  301. drawbox 14 7 16 43 1 bright yellow on red fill red shadow
  302. scrput 15 9 bright yellow on red File %tempvar exists overwrite (Y/n) ?
  303. screen 15 41
  304. set yes=y
  305. inkey %%yes
  306. iff "%yes"=="Y" .OR. "%yes"=="@28" then del %tempvar /z/q
  307. else goto main
  308. endiff
  309. endiff
  310.  
  311. drawbox 12 7 21 60 2 bright yellow on %bg fill %bg shadow
  312. scrput 14 10 %fg on %bg Saving System information to file...
  313. scrput 15 10 bright blink yellow on %bg Please wait...
  314.  
  315. text >%tempvar
  316. SYSTEM.BTM  System Information Report version 1.17
  317.  
  318.  
  319. -------------------
  320. System information:
  321. -------------------
  322. endtext
  323. echo Current Date: %_dow %_date >>%tempvar
  324. echo Current Time: %_time >>%tempvar
  325. echo Main Operating System: %_dos >>%tempvar
  326. echo DOS Version: %_dosver >>%tempvar
  327. iff "%_4ver"=="" then echo NDOS Version: %_nver >>%tempvar
  328. else echo 4DOS Version: %_4ver >>%tempvar
  329. endiff
  330. if %_dv == 1   echo Multitasking: DESQview >>%tempvar
  331. if %_win == 1  echo Multitasking: WINDOWS 2.x >>%tempvar
  332. if %_win == 2  echo Multitasking: WINDOWS 3 Enhanced Mode >>%tempvar
  333. if %_win == 3  echo Multitasking: WINDOWS 3 Real Mode >>%tempvar
  334. if %_win == 20 echo Multitasking: OS/2 2.0 DOS Box >>%tempvar
  335. iff %_cpu == 200 then echo CPU class: V20/V30 >>%tempvar
  336. else echo CPU class: 80%_cpu >>%tempvar
  337. endiff
  338. iff %_ndp ne 0 then echo NPU class: %_ndp Numeric Coprocessor detected >>%tempvar
  339. else echo Numeric Coprocessor not detected >>%tempvar
  340. endiff
  341. echo Screen: %_COLUMNS*%_ROWS >>%tempvar
  342. echo Video Adapter: %@upper[%_video] >>%tempvar
  343. echo Monitor Type: %@upper[%_monitor] >>%tempvar
  344. iff %_ANSI ==1 then echo ANSI Driver: Installed >>%tempvar
  345. else echo ANSI Driver: Not installed >>%tempvar
  346. endiff
  347. echo Code Page: %_CODEPAGE >>%tempvar
  348. iff %_MOUSE == 1 then echo Mouse Driver: Installed >>%tempvar
  349. else echo Mouse Driver: Not installed >>%tempvar
  350. endiff
  351.  
  352. text >>%tempvar
  353.  
  354.  
  355. -------------------
  356. Memory information:
  357. -------------------
  358. endtext
  359. loadbtm off
  360. echo DOS Memory free: %@DOSMEM[b] bytes (%@DOSMEM[K] Kilobytes %@INT[%@EVAL[%@DOSMEM[b]/640/1024*100]]%% free) >>%tempvar
  361. echo Alias free: %asize bytes >>%tempvar
  362. echo Environment free: %esize bytes >>%tempvar
  363. echo Extended memory free: %@EXTENDED[b] bytes >>%tempvar
  364. echo XMS Memory free: %@XMS[b] bytes >>%tempvar
  365. echo EMS Memory free: %@EMS[b] bytes >>%tempvar
  366.  
  367. set drive=%@search[mem.exe]
  368. if "%drive"=="" goto diskstempvar
  369. mem /c >>%tempvar
  370.  
  371. :diskstempvar
  372. loadbtm on
  373. text >>%tempvar
  374.  
  375.  
  376. ------------------
  377. Disks information:
  378. ------------------
  379. endtext
  380. echo BOOT Drive is: %_BOOT: >>%tempvar
  381. iff %@REMOVABLE[a:] == 1 then echo Drive A: Removable >>%tempvar
  382. else echo Drive A: Not Removable >>%tempvar
  383. endiff
  384. iff %@REMOVABLE[b:] == 1 then echo Drive B: Removable >>%tempvar
  385. else echo Drive B: Not Removable >>%tempvar
  386. endiff
  387. echo Current Drive is: %_DISK: >>%tempvar
  388. echo Disk Label is: %@LABEL[%_DISK:] >>%tempvar
  389. echo Current Directory is: %_CWD >>%tempvar
  390. echo Current Disk total: %@DISKTOTAL[%_DISK,b] bytes (%@DISKTOTAL[%_DISK,M] Megabytes) >>%tempvar
  391. echo Current Disk used: %@DISKUSED[%_DISK,b] bytes (%@DISKUSED[%_DISK,M] Megabytes - %@INT[%@EVAL[%@DISKUSED[%_DISK,b]/%@DISKTOTAL[%_DISK,b]*100]]%% used) >>%tempvar
  392. echo Current Disk free: %@DISKFREE[%_DISK,b] bytes (%@DISKFREE[%_DISK,M] Megabytes) >>%tempvar
  393. echo Last Drive is: %_LASTDISK: >>%tempvar
  394. iff "%LAN"=="" then 
  395. for %drive in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) if %@remote[%drive:]==1 set LAN=%LAN% %drive:
  396. if "%LAN"=="" set LAN= None
  397. endiff
  398. echo LAN Drives:%LAN >>%tempvar
  399.  
  400. set drive=%@search[%_boot:\autoexec.bat]
  401. if "%drive"=="" goto sysfile
  402. text >>%tempvar
  403.  
  404.  
  405. -------------
  406. AUTOEXEC.BAT:
  407. -------------
  408. endtext
  409. type %drive >>%tempvar
  410.  
  411. :sysfile
  412. set drive=%@search[%_boot:\config.sys]
  413. if "%drive"=="" goto systeminifile
  414. text >>%tempvar
  415.  
  416.  
  417. -----------
  418. CONFIG.SYS:
  419. -----------
  420. endtext
  421. type %drive >>%tempvar
  422.  
  423. :systeminifile
  424. set drive=%@search[system.ini]
  425. if "%drive"=="" goto wininifile
  426. text >>%tempvar
  427.  
  428.  
  429. -----------
  430. SYSTEM.INI:
  431. -----------
  432. endtext
  433. type %drive >>%tempvar
  434.  
  435. :wininifile
  436. set drive=%@search[win.ini]
  437. if "%drive"=="" goto dblspacefile
  438. text >>%tempvar
  439.  
  440.  
  441. --------
  442. WIN.INI:
  443. --------
  444. endtext
  445. type %drive >>%tempvar
  446.  
  447. :dblspacefile
  448. set drive=%@search[dblspace.ini]
  449. if "%drive"=="" goto memmakerfile
  450. text >>%tempvar
  451.  
  452.  
  453. -------------
  454. DBLSPACE.INI:
  455. -------------
  456. endtext
  457. type %drive >>%tempvar
  458.  
  459. :memmakerfile
  460. set drive=%@search[memmaker.sts]
  461. if "%drive"=="" goto aliasesfile
  462. text >>%tempvar
  463.  
  464.  
  465. -------------
  466. MEMMAKER.STS:
  467. -------------
  468. endtext
  469. type %drive >>%tempvar
  470.  
  471. :aliasesfile
  472. text >>%tempvar
  473.  
  474.  
  475. --------
  476. Aliases:
  477. --------
  478. endtext
  479. type #@$().zb >>%tempvar
  480.  
  481. :systemenvinroment
  482. text >>%tempvar
  483.  
  484.  
  485. ------------
  486. Envinroment:
  487. ------------
  488. endtext
  489. type #@$().ze >>%tempvar
  490.  
  491. text >>%tempvar
  492.  
  493.  
  494. ---------------------
  495. SYSTEM: End Of Report
  496. ---------------------
  497. endtext
  498. describe %tempvar "SYSTEM 1.17 System Information file"
  499. scrput 17 10 %fg on %bg System Information saved to file: %tempvar
  500. scrput 19 10 %fg on %bg Press any key to return to main menu...
  501. screen 19 49 
  502. pause > nul
  503. goto main
  504.  
  505. :QUIT
  506. cls %fg on %bg
  507. unset *
  508. set /r #@$().ze
  509. alias /r #@$().zb
  510. del #@$().zb;#@$().ze;system.idx /q
  511. quit
  512.